﻿Public Delegate Sub Custom_DGVcomboBoxColEventHandler(ByVal sender As Object, ByVal e As Custom_DGVcomboBoxColEventArgs)

Public Class Custom_DGVcomboBoxColEventArgs
    Inherits EventArgs
    Private colNum As Integer
    Private rowNum As Integer
    Private currentCellValueVal As Object
    Public Sub New(ByVal iRow As Integer, ByVal iCol As Integer, ByVal CellValue As Object)
        rowNum = iRow
        colNum = iCol

    End Sub
    Public Property Column() As Integer
        Get
            Return colNum
        End Get
        Set(ByVal Value As Integer)
            colNum = Value
        End Set
    End Property
    Public ReadOnly Property CurrentCellValue() As Object
        Get
            Return currentCellValueVal
        End Get
    End Property
    ' Holds the row number of the cell being painted.
    Public Property Row() As Integer
        Get
            Return rowNum
        End Get
        Set(ByVal Value As Integer)
            rowNum = Value
        End Set
    End Property
End Class
